home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1986 April
/
1986-04.d64
/
input demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
310b
|
14 lines
100 ifa=0thena=1:load"input.obj",8,1
110 print"[147]":poke53281,1:print"enter your name- ";
120 lng=22:typ=0:gosub210
130 print:printt$:print"enter the price-$";
140 lng=5:typ=1:gosub210
150 ift1>99.99then140
160 print:printt1:print:print"more (y/n)?"
170 wait198,1:getk$
180 ifk$="y"then110
190 ifk$<>"n"then170
200 end
210 poke142,lng:poke143,typ:sys49152:if(st and 1)thent$="":t1=0
220 return